home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / hf^k-7.dms / in.adf / envWWW21 / www / arexx / document.ged < prev    next >
Encoding:
Text File  |  1996-01-19  |  4.3 KB  |  170 lines
  1. /* $VER: 1.1, ©1996 Dietmar Eilert. Create empty HTML document */
  2.  
  3. OPTIONS RESULTS                             /* enable return codes     */
  4. arg MODE
  5.  
  6. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  10.  
  11. if (RC ~= 0) then
  12.     exit
  13.  
  14. OPTIONS FAILAT 6                            /* ignore warnings         */
  15.  
  16. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  17.  
  18. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  19.  
  20. 'QUERY USER VAR=USER'
  21. 'QUERY VER  VAR=VERSION'
  22. 'QUERY DOC  VAR=DOC'
  23.  
  24. if (USER = "") then do
  25.  
  26.     'QUERY ADDRESS_NAME VAR=ADDRESS_NAME'
  27.  
  28.     if (ADDRESS_NAME ~= "0") then
  29.  
  30.         USER = ADDRESS_NAME
  31. end
  32.  
  33. 'FIX VAR=USER'
  34. 'FIX VAR=DOC'
  35.  
  36. 'SUFFIX STRING="' || DOC || '" SUFFIX=".html"'
  37.  
  38. 'NAME NEW=' || RESULT
  39.  
  40. if (MODE = "QUICK") then do
  41.  
  42.     'QUERY ANYTEXT'
  43.  
  44.     if (RESULT = "TRUE") then
  45.  
  46.         'MORE NAME="unnamed.html"'
  47.  
  48.     else do
  49.  
  50.         'NEW'
  51.  
  52.         'NAME NEW unnamed.html'
  53.     end
  54.  
  55.     'TEXT CR T="<HTML>"'
  56.     'CR'
  57.     'TEXT CR T="<!-- Created with ' || substr(VERSION, 7) ||' -->"'
  58.     'CR'
  59.     'TEXT CR T="<HEAD>"'
  60.     'TEXT CR T="<TITLE>"'
  61.     'TEXT CR T="Untitled"'
  62.     'TEXT CR T="</TITLE>"'
  63.     CR
  64.  
  65.     'TEXT CR T="<META NAME=*"description*" CONTENT=*"Under construction*">"'
  66.     'TEXT CR T="<META NAME=*"keywords*"    CONTENT=*"*">"'
  67.     'TEXT CR T="<META NAME=*"author*"      CONTENT=*"' || USER || '*">"'
  68.     'TEXT CR T="<META NAME=*"generator*"   CONTENT=*"WWW publishing extensions for GoldED*">"'
  69.  
  70.     'CR'
  71.     'TEXT CR T="</HEAD>"'
  72.     'CR'
  73.     'TEXT CR T="<BODY>"'
  74.     'PING SLOT=0'
  75.     'CR'
  76.  
  77.     'TEXT CR T="</BODY>"'
  78.     'CR'
  79.     'TEXT T="</HTML>"'
  80.     'PONG SLOT=0'
  81.  
  82.     'REQUEST STATUS="Insert your text here."'
  83. end
  84. else do
  85.  
  86.     'REQUEST STRING TITLE="Create new HTML document" BODY="Document''s title                " OLD="Untitled" VAR=TITLE'
  87.  
  88.     if (RC = 0) then do
  89.  
  90.         'REQUEST STRING TITLE="Create new HTML document" BODY="Document''s author               " OLD="' || USER || '" VAR=USER'
  91.  
  92.         if (RC = 0) then do
  93.  
  94.             'FIX VAR=USER'
  95.  
  96.             'SET ADDRESS_NAME="' || USER || '"'
  97.  
  98.             'REQUEST STRING TITLE="Create new HTML document" BODY="Short description               " OLD="Empty document"   VAR=DESCRIPTION'
  99.  
  100.             if (RC = 0) then do
  101.  
  102.                 'REQUEST STRING TITLE="Create new HTML document" BODY="Keywords for search engines (<keyword>, ...)" OLD="Amiga" VAR=KEYWORDS'
  103.  
  104.                 if (RC = 0) then do
  105.  
  106.                     'QUERY ANYTEXT'
  107.  
  108.                     if (RESULT = "TRUE") then
  109.  
  110.                         'MORE NAME="unnamed.html"'
  111.  
  112.                     else do
  113.  
  114.                         'NEW'
  115.  
  116.                         'NAME NEW unnamed.html'
  117.                     end
  118.  
  119.                     'FIX VAR=TITLE'
  120.                     'FIX VAR=DESCRIPTION'
  121.                     'FIX VAR=KEYWORDS'
  122.  
  123.                     'TEXT CR T="<HTML>"'
  124.                     'CR'
  125.                     'TEXT CR T="<!-- Created with ' || substr(VERSION, 7) ||' -->"'
  126.                     'CR'
  127.                     'TEXT CR T="<HEAD>"'
  128.                     'TEXT CR T="<TITLE>"'
  129.                     'TEXT CR T="' || TITLE || '"'
  130.                     'TEXT CR T="</TITLE>"'
  131.                     CR
  132.  
  133.                     'TEXT CR T="<META NAME=*"description*" CONTENT=*"' || DESCRIPTION || '*">"'
  134.                     'TEXT CR T="<META NAME=*"keywords*"    CONTENT=*"' || KEYWORDS    || '*">"'
  135.                     'TEXT CR T="<META NAME=*"author*"      CONTENT=*"' || USER        || '*">"'
  136.                     'TEXT CR T="<META NAME=*"generator*"   CONTENT=*"WWW publishing extensions for GoldED*">"'
  137.  
  138.                     'CR'
  139.                     'TEXT CR T="</HEAD>"'
  140.                     'CR'
  141.                     'TEXT CR T="<BODY>"'
  142.                     'PING SLOT=0'
  143.                     'CR'
  144.  
  145.                     'TEXT CR T="</BODY>"'
  146.                     'CR'
  147.                     'TEXT CR T="</HTML>"'
  148.                     'PONG SLOT=0'
  149.  
  150.                     'REQUEST STATUS="Insert your text here."'
  151.                 end
  152.             end
  153.         end
  154.     end
  155. end
  156.  
  157. /* ---------------------------- END OF YOUR CODE --------------------- */
  158.  
  159. 'UNLOCK' /* VERY important: unlock GUI */
  160.  
  161. exit
  162.  
  163. SYNTAX:
  164.  
  165. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  166.  
  167. 'UNLOCK'
  168.  
  169. exit
  170.